0 REM     Q-LINK DISK # 81
5 POKE53280,15:POKE53281,15:POKE646,12:POKE53272,23:PG=1:POKE2,PG:PRINT"[147]"
6 IFPEEK(679)=255THENDR=PEEK(680):GOTO11
10 DR=PEEK(251):IFDR<>8ANDDR<>9THENDR=PEEK(186)
11 POKE680,DR:XR=17-DR:OPEN15,XR,15:CLOSE15:IFST<>0THENXR=DR
12 PRINT"           [158][210][197][204][193][217][197][210] [211][207][198][212][215][193][210][197]'S[146]"
13 PRINT"               [153]"CHR$(34)"[210]ENAMER"CHR$(34)
15 PRINT"[152][201]NSERT DISK IN DRIVE[153]"XR"[152]";
28 IFPEEK(679)=255THEN61
29 POKE679,255
30 FORD=49152TOD+224:READY:POKED,Y:NEXT
60 POKE49162,XR:POKE49180,XR:POKE49305,XR
61 DIMF$(144)
120 PRINT"  [208]RESS <[211][208][193][195][197]>[152]":POKE198,0:WAIT198,1
170 PRINT"        [210]EADING THE FILENAMES...       "
180 SYS49152
210 K=PEEK(787)
219 PRINT"[147]"
220 PRINT"[153][198]1[152]-PREV [153][198]7[152]-NEXT [153][210][152]-RENAME [153]_[152]-DISK [153]\[152]-ABORT":GOSUB600
230 IFA$="R"THEN219
240 SYS64738
600 PRINT"":IFA$="R"THENGOSUB833:A$="":GOTO600
605 PG=PEEK(2)
610 FORI=1TO20
612 J=PG*40-20+I
615 II$=STR$(J-20):HH$=STR$(J):I$=RIGHT$(II$,LEN(II$)-1):H$=RIGHT$(HH$,LEN(HH$)-1)
617 IF(J-20)>144ORJ>144THEN625
618 IF(J-20)>KTHENI$=" ":F$(J-20)=" "
619 IF(J)>KTHENH$=" ":F$(J)=" "
620 PRINT"[150]"I$;TAB(3);"[152]";F$(J-20);TAB(20);"[152]";H$;TAB(23);"[152]";F$(J)
625 NEXT
690 PX=PG:GOSUB800
691 IFA$="R"THEN699
692 IFPX=PGTHEN690
698 GOTO600
699 RETURN
800 REM PAGER
805 PG=PEEK(2):POKE198,0
810 GETA$:IFA$=""THEN810
815 IFA$<>"[136]"ANDA$<>"[133]"ANDA$<>"R"ANDA$<>"\"ANDA$<>"_"THEN810
816 IFA$="R"THENGOSUB2000:RETURN
817 IFA$="\"THENSYS64738
818 IFA$="_"THENPOKE198,2:POKE631,19:POKE632,13:PRINT"[147][151]R[213]":CLR:END
820 IFA$="[136]"THENPG=PG+1:IFPG*40-39>KTHENPG=PG-1:RETURN
830 IFA$="[133]"THENPG=PG-1:IFPG=0THENPG=1:RETURN
833 PRINT""
835 FORI=1TO20:PRINT"                                       ":NEXT
840 POKE2,PG
899 RETURN
900 REM   DISK RENAME
929 OPEN15,XR,15
930 PRINT#15,"R:"+NN$+"="+F$(N):INPUT#15,E,E$:CLOSE15
940 IFE<21THENF$(N)=NN$
945 IFLEN(F$(N))>16THENF$(N)=LEFT$(NN$,16)
950 PRINT"                                        "
955 PRINT"  [153]STATUS:[150]"E;E$"[152]"
960 FORI=1TO2000:NEXT
965 PRINT"                                       "
970 RETURN
1000 DATA169,0,141,19,3,169,36,133,150,169,8,170,160,0,32,186,255
1001 DATA169,1,162,150,32,189,255,32,192,255,162,8,32,198,255,32,207
1002 DATA255,32,207,255,169,0,133,253,169,128,133,254,165,47,133,251,165
1003 DATA48,133,252,160,0,177,251,201,70,240,9,200,208,247,230,252,208
1004 DATA243,240,78,200,208,2,230,252,177,251,201,128,240,2,208,228,162
1005 DATA9,200,208,2,230,252,202,208,248,152,24,101,251,133,251,144,2
1006 DATA230,252,160,31,32,207,255,136,208,250,32,207,255,166,144,208,30
1007 DATA201,34,208,245,165,253,133,176,165,254,133,177,160,0,32,207,255
1008 DATA201,34,240,18,145,176,200,208,244,230,177,208,240,32,204,255,169
1009 DATA8,32,195,255,96,132,155,152,24,101,176,133,176,144,2,230,177
1010 DATA160,0,165,155,145,251,200,165,253,145,251,200,165,254,145,251,200
1011 DATA152,24,101,251,133,251,144,2,230,252,165,176,133,253,165,177,133
1012 DATA254,238,19,3,32,207,255,208,251,32,207,255,32,207,255,32,207
1013 DATA255,76,112,192
2000 NN$="":N=0:NL=0:PRINT""
2001 PRINT"[153]USE [204][207][199][207] [153]TO ESCAPE"
2002 PRINT""
2003 PRINT"[152][197]NTER [153]#,NEWNAME[152]:";
2005 POKE204,0:POKE207,0
2006 GETX$
2010 IFPEEK(653)=2THENPRINT" ";:POKE204,1:RETURN
2011 IFX$=""THEN2006
2018 IFX$=CHR$(13)THENPRINT" ";:POKE204,1:GOTO2024
2019 IFASC(X$)=20ANDLEN(NN$)>0THENNN$=LEFT$(NN$,LEN(NN$)-1):GOTO2023
2020 IFNOT((X$>CHR$(31)ANDX$<CHR$(128))OR(X$>CHR$(159)))THEN2005
2021 IFLEN(NN$)<20THENNN$=NN$+X$:GOTO2023
2022 GOTO2005
2023 PRINTX$;:GOTO2005
2024 NL=LEN(NN$):IFNL<1THENPRINT"[157]";:GOTO2005
2025 FORI=1TONL
2030 IFMID$(NN$,I,1)=","THENN=VAL(LEFT$(NN$,I-1)):NN$=RIGHT$(NN$,NL-I)
2035 NEXT
2039 IFN>0ANDN<=KANDLEN(NN$)>0THEN2050
2040 PRINT""
2041 PRINT"                                       ":GOTO2000
2050 GOSUB900:RETURN